home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / COMAL / B-Book Series / (k)b2.d64 / exe112 < prev    next >
Text File  |  2007-02-28  |  925b  |  33 lines
  1. 0010 DIM NAME$ OF 25, STREET$ OF 20
  2. 0020 DIM TOWN$ OF 20, CODE$ OF 10
  3. 0030 PRINT CHR$(147) //CLEAR SCREEN
  4. 0040 FOR I:=1 TO 3 DO PRINT  //3 DOWN
  5. 0050 PRINT "NAME..............",
  6. 0060 INPUT NAME$
  7. 0070 PRINT "HOUSE NO..........",
  8. 0080 INPUT HOUSENO
  9. 0090 PRINT "STREET............",
  10. 0100 INPUT STREET$
  11. 0110 PRINT "TOWN..............",
  12. 0120 INPUT TOWN$
  13. 0130 PRINT "POST CODE.........",
  14. 0140 INPUT CODE$
  15. 0150 //
  16. 0160 PRINT CHR$(147) //CLEAR SCREEN
  17. 0170 FOR I:=1 TO 3 DO PRINT  //3 DOWN
  18. 0180 PRINT "             TONDER, MAY 6 1981"
  19. 0190 PRINT 
  20. 0200 PRINT NAME$
  21. 0210 PRINT HOUSENO," ",STREET$
  22. 0220 PRINT TOWN$," ",CODE$
  23. 0230 PRINT 
  24. 0240 PRINT "DEAR SIR/MADAM,"
  25. 0250 PRINT 
  26. 0260 PRINT "ALLOW US TO OFFER YOU OUR FINE"
  27. 0270 PRINT "SALT-CURED HAM AT THE VERY SPECIAL"
  28. 0280 PRINT "PRICE OF 100 DOLLAR PER KG."
  29. 0290 PRINT 
  30. 0300 PRINT "              SINCERELY,"
  31. 0310 PRINT "              ALFRED BACON,"
  32. 0320 PRINT "              BUTCHER."
  33.